﻿
'==============================================================================
'Copyright 2013 Tony George <teejee2008@gmail.com>

'This program is free software; you can redistribute it and/or modify
'it under the terms of the GNU General Public License as published by
'the Free Software Foundation; either version 2 of the License, or
'(at your option) any later version.

'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.

'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
'MA 02110-1301, USA.
'==============================================================================

Imports System.IO
Imports System.Collections
Imports System.Text.RegularExpressions

Public Class File
    Public File, Name, ParentFolder, Title, Extension As String

    Sub New(ByVal SourceFile As String)
        If SourceFile = "" Then
            Exit Sub
        End If

        Me.File = SourceFile
        Me.Name = Path.GetFileName(SourceFile)
        Me.Title = Path.GetFileNameWithoutExtension(SourceFile)
        Me.Extension = Path.GetExtension(SourceFile).ToLower
        Me.ParentFolder = Path.GetDirectoryName(SourceFile)
    End Sub
End Class
